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DISC DUMP ON SCOPE 


DECUS Program Library Write-up 


DECUS No. 8-253 


ABSTRACTS THIS PROGRAM DISPLAYS DISC DATA ON THE SCOPE 

SCREEN A BLOCK AT A TIME, IN OCTAL. A FAST PLOT 
ROUTINE ALLOWS A REFRESH TIME OF 52 MILLISECONDS 
OR LESS FOR MINIMUM FLICKER. OTHER FUNCTIONS ARE 
AVAILABLE, INCLUDING SEARCHES FOR STRINGS OF WORDS, 
MODIFICATION OF SINGLE WORDS OR LINKS ON THE DISC, 
AND HARD COPY ON THE TELETYPE. 

REQUIREMENTS: 

EQUIPMENT: PDP-8 WITH 34D SCOPE DISPLAY AND ANY SIZE DF32 
DISC. 

STORAGE: 0-1377 FOR PROGRAM, 1400-7577 FOR BUFFERS 

OTHER PROGRAMS: THE PROGRAM IS DESIGNED TO OPERATE WITH 
THE DISC MONITOR SYSTEM AND REQUIRES THE DISC I/O 
ROUTINE IN THE UPPER PAGE OF MEMORY. 










LOADING* I HE PROGRAM MAY be loaded from the paper tape using 
IHL BINARY LOADER, OR CALLED FROM THE SYSTEM DEVICE* 

HAVING* "SAVE DMP! 0-1377J 200" 

START IMG ADDRESS* 200 


OPERA! I NG I .^STRUCT 10 NS * 

THE PROGRAM STARTS BY TYPING OME OF THE FOLLOW I MG 

COMMANDS MAY BE GIVE!: 

OCTAL NUMBER <1-4 DIGITS) FOLLOWED BY SPACE- THE PROGRAM 
DISPLAYS THIS BLOCK ON THE SCREEN. IT ALSO PRINTS THE LINK 
TO THE NEXT BLOCK AND THE CHECKSUM (THE SUM OF THE 128 DATA 
WORDS IN THE BLOCK WITH END AROUND CARRY). 

IF A BLOCK NUMBER IS REQUESTED WHICH EXCEEDS THE DISC SIZE, 
THE PROGRAM TYPES "OB" AND RETURNS TO THE START POINT. 

SPACE- THE PROGRAM PICKS UP THE LINK TO THE NEXT BLOCK AND 
DISPLAYS IT AS THOUGH THE NUMBER HAD BEEN TYPED. A LONG 
FILE MAY BE SPACED THROUGH RAPIDLY IN THIS WAY• 

P- THE PROGRAM PRINTS A COPY OF THE PRESENT BLOCK ON THE 
TELETYPE. SINCE THE OUTPUT IS BUFFERED, YOU NEED NOT WAIT 
UNTIL THE PRINTING IS COMPLETE TO DISPLAY ANOTHER BLOCK. 

THE PRINTING MAY BE TERMINATED AT ANY TIME BY TYPING "tP". 

S- THE PROGRAM WILL ACCEPT A STRING OF OCTAL NUMBERS, 

SEPARATED BY ANY NON-NUMERIC CHARACTER AND TERMINATED BY 
A CARRIAGE RETURN, FOR A SEARCH. THE PROGRAM PRINTS THE 
LOCATIONS OF ALL OCCURRENCES OF THIS STRING ON THE DISC, 

AND DISPLAYS THE LAST MATCHED BLOCK. THE FORMAT IS* 

BLOCK NO. ADDRESS (WITHIN BLOCK, OF FIRST WORD) 

IF AN ERROR IS MADE IN THE TYPEIN, TYPING A RUBOUT ERASES 
THE STRING. THE SEARCH TAKES ABOUT 10 SECONDS. 

M- THE PROGRAM WILL ACCEPT 1,2, OR 3 NUMBERS TO MODIFY A WORD 
ON THE DISC, AS FOLLOWS* 

3N* Nl-BLOCK, N2*ADDRESS, N3=C0NTENT 

2N* PRESENT BLOCK, NI=ADDRESS, N2=C0NTENT 

IN* PRESENT BLOCK, LAST ADDRESS+1, Nl=CONTENT 

NUMBERS MUST BE SEPARATED BY A NON-NUMERIC CHARACTER AND 
TERMINATED BY A CARRIAGE RETURN. 

ADDRESSES ARE CALCULATED MODULO 200, I.E. AN ADDRESS OF 
3370 MODIFIES WORD 170 ON THE BLOCK. 

TO MODIFY THE LINK OF A BLOCK, TYPE "L" IN PLACE OF THE 
ADDRESS. "L" WILL NOT BE ACCEPTED AS A BLOCK NO. OR CONTENT. 

THE MODIFIED BLOCK WILL BE DISPLAYED ON THE SCREEN. 
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OTHER FEATURES: 

TYPING A RUBOUT OR fP AT ANY TIME CLEARS THE PRINT AND 
KEYBOARD BUFFERS AND RETURNS TO THE START POINT. 

TYPING A TC CAUSES A RETURN TO THE MONITOR AT 7600. 

THE OUTPUT IS BUFFERED SO THAT PRINTING AND PLOTTING MAY 
BE OVERLAPPED. IF THE OUTPUT BUFFER IS OVERFLOWED (FOR 
EXAMPLE* BY GIVING FOUR *P* COMMANDS TOGETHER) THE PROGRAM 
EXITS TO THE MONITOR. 

THE MODIFY OPTION SHOULD BE USED WITH CARE SINCE ANY 
UNLOCKED LOCATION ON THE DISC IS ACCESSIBLE. YOU MAY DISABLE 
THE "M" OPTION BY ZEROING LOCATION 241. 

IF AN ATTEMPT IS MADE TO MODIFY A LOCATION ON A WRITE-LOCKED 
BLOCK* THE PROGRAM HALTS AT LOCATION 1332. 


EXAMPLES! 

1. TO SEARCH FOR A STRI NG OF NUMBERS 5 

*S 12 3 * 4567* 12 CCR3 
0221 0000 
0010 0000 
0022 0120 

1 (BLOCK 522 DISPLAYED ON THE SCREEN) 

2. TO CLEAR THE LINK AND WORDS 170-172 OF BLOCK 231: 

* M 231 L 0 CCR3 
i M 170 0 CCR3 
t M 0 CCP-3 
t M 0 CCR3 

1 <NEW BLOCK 231 DISPLAYED ON THE SCREEN) 


DESCRIPTION: 

THE PLOTTING ROUTINE IS DESIGNED TO PRODUCE MINIMUM FLICKER 
WITH A LONG-PERSISTENCE SCREEN. CHARACTERS ARE PLOTTED ON 
A 3*5 GRID IN ABOUT 97 MICROSECONDS EACH* FOR 536 CHARACTERS. 
SPACES ARE SUBSTITUTED FOR LEADING ZEROS* WHICH REDUCES THE 
PLOT TIME AND IMPROVES READABILITY. 

DUE TO THE HIGH PLOTTING RATE* THE SCOPE LOGIC MUST BE 
TIMED CORRECTLY TO AVOID SMEARS. LONG CABLES TO THE SCOPE OR 
DELAYS OUT OF ADJUSTMENT MAY CAUSE SLOW RESPONSE. IF NECESSARY* 
FAST REPEATING SEQUENCES IN THE PLOT ROUTINE MAY BE SLOWED 
DOWN* FOR EXAMPLE BY CHANGING LOCATION 645 FROM 
"TAD CIO" TO "TAD I CC10". 
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0001 

0002 

0003 

0004 

0005 

0006 


0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0030 

0031 

0032 

0033 

0034 

0035 


/ DISC DUMP ON SCOPE* WITH SEARCH* MODIFY* PRINT 
/ 12/19/69 
/ BRIAN UNDERHILL 

/ USE ANY SIZE DF32 DISC AND 34D SCOPE 
*1 /PAGE 0 
0000 X* 0 J 

DCX=DCA XI TDX=TAD X 

0000 Yl* o; 

0000 Y2* OJ 

0000 Y3* o; 

0000 Y4* Oi 

0000 Y5* 0 /Y VALS FOR 5 ROWS OF LETTER 

XL=6053* XS = 6057* YL=6063J YS=6067 

U=TAD C10J D = TAD C-10I R = TAD C6I L = TAD C-6J C = CLA 

R2=TAD C 14 * IJ3=TAD C30I U2=TAD C20J D2=TAD C-20* U4=TAD C40 

SBUF =1400 /WORD LIST TO SEARCH FOR 

DBUF - 1600 /DISC INPUT BUFFER 

TXBUF=2000 /PLOT TEXT.. 5 PAGES* CONTAINS "JMP . .“ 
PRBUF=3200 /PRINT BUFFER* >6 PAGES* SINGLE CHARACTERS 
XST=10 /INDEX X START POSITIONS 
TXPTR=11 /INDEX PLOT TEXT BUFFER 
DPTR=12 /INDEX DISC BUFFER 

SP1=13* SP2=14 /POINTERS FOR SEARCH ROUTINE 
*20 

3200 PRIN* PRBUF /NEXT TO FILL 
3200 PROUT* PRBUF /NEXT TO USE 

0001 PRINTF* 1 /I IF PRINTER READY* FLAG DOWN 

0000 CHAR* 0 /FROM KB 

0000 ACUM* 0 /OCTAL NUMB FROM KB 

0000 MAXBLK* 0 / -<N BLKS ON THIS DISC) 

0643 PTRS* PLTO /BUFFER CONTAINS "JMP I PTRS+N" OR "JMP DIGIT" 
0674 PLT1 * 

0722 PLT2* 

0751 PLT3* 

1004 PLT4* 

1032 PLT5* 

1065 PLT6* 

1117 PLT7 

/CHARS ARE 3*5* HORIZ 6/SPOT* 23/CHAR. VERT 8/SPOT* 48/CHAR 
/PLOTS A FULL SCREEN (536 CHAR) IN 52 MSEC* FASTER IF 
/THERE ARE LEADING ZEROS.. PLOT SPEED 6.75 MUSEC/SPOT.. 
/CHECK SCOPE LOGIC TIMING CR302 IN A29) IF YOU GET STREAKS 


003 
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0036 

0000 

GETCHR* 0 /TO GET A CHAR* COME HERE +PLOT WHILE WAITI 

003 7 

7200 

PLOTj 

. CLA 

0040 

1166 

TAD 

(TXBUF-1 

0041 

3011 

DCA 

TXPTR 

0042 

1 143 

TAD 

STY 1 * 

0043 

3002 

DCA 

Y1 /INIT Y1-Y5 

0044 

6031 

NEWLN* KSF /SEE IF ANYTHING TO BE DONE WITH TTY 

0045 

5067 

JMP 

NO KB 

0046 

6036 

KRB 

/GOT A CHAR.. CHECK FOR "C**P*RUBOUT 

004 7 

3023 

DCA 

CHAR 

0050 

1023 

TAD 

CHAR 

00 51 

1165 

TAD 

(-203 

0052 

7450 

SNA 


0053 

5764 

JMP 

7600 /“C* GO TO MONITOR 

00 54 

1 163 

TAD 

(203-377 

0055 

74 50 

SNA 


0056 

5762 

JMP 

INIT /RUBOUT* START TYPEIN OVER 

0057 

1161 

TAD 

(377-220 

0060 

7650 

SNA 

CLA 

0061 

5762 

JMP 

INIT /~P* KILL THE PRINT BUFFER 

0062 

1023 

TAD 

CHAR 

0063 

4760 

JMS 

putpr; 

0064 

4000 

4000 /ECHO 

0065 

1023 

TAD 

CHAR 

0066 

5436 

JMP 

I GETCHR /GO BACK TO CALLING PROG WITH CHAR 

0067 

604 1 

NO KB* 

TSF 

0070 

5111 

JMP 

NOPRNT 

0071 

1020 

TAD 

PRIN /PRINTER READY* IS THERE ANYTHING IN BUFF 7 

0072 

7041 

CIA 


0073 

1021 

TAD 

PROUT 

00 74 

7650 

SNA 

CLA 

0075 

5103 

JMP 

BUFEMP /BUFF EMPTY; RESET POINTERS* SET FLAG LOC 

0076 

1421 

TAD 

I PROUT /NOT EMPTY* PRINT ONE FROM BUFF 

0077 

6046 

TLS 


0100 

7200 

CLA 


0101 

2021 

ISZ 

PROUT 

0102 

511 1 

JMP 

NOPRNT 

0103 

1157 

BUFEMP* TAD < PRBUF» 

0104 

3020 

DCA 

PRIN 

0105 

1157 

TAD 

(prbuf; 

0106 

3021 

DCA 

PROUT 

0107 

6042 

TCF 

/CLEAR HARDWARE FLAG + SET SOFTWARE FLAG 

0110 

2022 

ISZ 

PRINTF 
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0111 

Oils 

01 13 
01 14 
01 15 
0116 
0117 
0120 
0121 
0122 
0123 
0124 
0125 
0126 
0127 
0130 
0131 
0132 
0133 
0134 
0135 
0136 
0137 
0140 
0141 
0142 
0143 

0153 

0154 

0155 

0156 

0157 

0160 

0161 

0162 

0163 

0164 

0165 

0166 

0167 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

Z 


1002 NOPRNT* TAD Y1 


1156 

TAD 

(-60 /DECREMENT THE Y LEVELS* NEXT 

LINE 

7510 

SPA 



5037 

JMP 

PLOT /IF -* DONE* PLOT AGAIN 


3002 

DC A 

Y1 


1002 

TAD 

yi; 


1 1 77 

TAD 

( 10J 


3003 

DCA 

Y2 


1003 

TAD 

Y2; 


1177 

TAD 

( 10 ; 


3004 

DCA 

Y3 


1004 

TAD 

Y3; 


1177 

TAD 

( 10 J 


3005 

DCA 

Y4 


1005 

TAD 

Y41 


1 177 

TAD 

CIO* 


3006 

DCA 

Y5 


1 155 

STSCN* TAD (XTEL-1J 


3010 

DCA 

XST /START X AT LEFT 


7200 

DIGIT* CLA 


1410 

TAD 

I XST /LOAD X START 


7450 

SNA 



5044 

JMP 

MEWLN 


6053 

XL 



3001 

OCX 

/AND STORE 


54 1 1 

JMP 

I TXPTR /AND GO TO RT TO PLOT NEXT 

DIGI 

GOOD 

STY 1 

* 0 /NO PLOTTING UNTIL YOU PUT 1400 

HERE 


(START POS) 


0 541 
1 146 
0577 
7720 
3200 
1340 
0157 
0211 
7604 
7600 
7575 
1 777 
0040 
7 760 
0020 
0030 
0014 
7772 
0006 
7770 
0010 
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0200 
0201 
0202 
0203 
0204 
0205 
0206 
020 7 
0210 


*200 /INPUT HANDLING (TYPE IN* ETC) 

1327 ENTRY* TAD FSAN /FIRST FIND OUT HOW BIG A DISC THEY HAVE 
3777 HWMB* DCA BLOC /BY CHAINING THRU SAM BLOCKS* 1/UNIT 
1025 TAD MAXBLK 

1376 TAD (-376 /BLOCKS PER UNIT 

3025 DCA MAXBLK 

4775 JMS GETB 

1774 TAD LINK /IF NON-ZERO LINK* THERE IS ANOTHER UNIT 

7440 SZA 

5201 JMP HWMB 


0211 
0212 
0213 
0214 
0215 
0216 
0217 
0220 
0221 
0222 
0223 
0224 
0225 
0226 
0227 
0230 
0231 
0232 
0233 
0234 
0235 
0236 
0237 
0240 
0241 
0242 
0243 
0244 
024 5 
0246 
0247 
0250 


1373 INIT* TAD (PRBUFJ 

3020 DCA PRIN /CLEAR PRINT BUFF TO START 

1373 TAD (PRBUF; 

3021 DCA PROUT 

4560 START* JMS I CPUTPR 
0215 215* 

0212 212 ; 

4252 4252 /ASK FOR TYPEIN•* PRINT CR*"*" 

4554 GTFST* JMS I CGETNUM /GET FIRST NUMBER* OR MODE CHAR. 
5234 JMP MODE /FST IS NON-NUMERIC* SET MODE (M*S*P* ) 

1024 GETBL* TAD ACUM /HAVE NUMBER* =NEXT BL TO GET 
3777 DCA BLOC 

4775 JMS GETB 

1774 TAD LINK 

5772 JMP GCSUM /GET CSUM* TYPE* CALCULATE* DISPLAY 

1774 GETNBL* TAD LINK 

4553 JMS I COCTWD 

1774 TAD LINK 

5224 JMP GETBL+1 

1371 MODE* TAD (-240 

7450 SNA 

5230 JMP GETNBL /SPACE* PICK UP NEXT BLOCK 
1370 TAD (240-315 

7450 SNA 

5251 JMP MODFY /M* ACCEPT MODIFY DATA 
1367 TAD (315-323 

7450 SNA 

5766 JMP SERCH /S* ACCEPT SEARCH DATA 
1365 TAD (323-320 

7640 SZA CLA 

5221 JMP GTFST /NOT RECOGNIZED* IGNORE 
5764 JMP CAL+1 /P* PRINT THE BLOCK ON TTY 
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0851 
08 58 
0853 
0854 
0855 
0256 
0257 
0260 
0261 
0262 
0263 
0264 
0265 
0266 
0267 
02 70 
0271 
0272 
02 73 
0274 
0275 
0276 
0277 
0300 
0301 
0302 
0303 
0304 
0305 
0306 
030 7 
0310 
0311 
0312 
0313 
0314 
0315 
0316 
0317 
0320 
0321 
0322 
0323 
0324 
0325 
0326 
0327 


3326 

MODFY 

* DCA 

CHLINK /1NIf LINK-WANTED INDICATOR 

4330 

JMS 

GETM 

/GETS A NUMBER* OR "L"* OR TERMINATES 

1024 

TAD 

acum; 


3325 

DCA 

CONT 

/N1=CONTENT 

4330 

JMS 

GETM 


1325 

TAD 

cont; 


3323 

DCA 

ADR 

/N1=ADR* N2=C0NTENT 

1024 

TAD 

acum; 


3325 

DCA 

cont 


4330 

JMS 

GETM 


1323 

TAD 

adr; 


3 77 7 

DCA 

BLOC 

/N1=BLOC* N2=ADR* N3=C0NTENT 

1325 

TAD 

cont; 


3323 

DCA 

ADR 


1024 

TAD 

acum; 


3325 

DCA 

cont 



4775 STORE* JMS GLIB /GOT CR1 GET THE BLK* MAKE THE MOD* RE-STOE 
1326 TAD CHLINK 
7440 SZA 

5310 JMP TLK /LINK INDICATOR NOT 0* SEE ABT STORING IN LK 
1323 TAD ADR 

0363 AND (177 /TYPE IN ANY ADRESSi LAST 7 BITS USED 

1362 TAD (DBUF 

3324 DCA SADR 

1325 TAD CONT /CONTENT 

3724 DCA I SADR 

2323 ISZ ADR /INCREMENT ADR EACH TIME 

7000 NOP 

7326 PSTR* GET2 

4775 JMS GETS 

5761 JMP CAL /RECALCULATE AND DISPLAY IT 

1360 TLK* TAD (-4 /STORE DATA IN LINK* BUT MAKE SURE THEY 

7640 SZA CLA /TYPED L FOR ADR ONLY* NOT BLOC OR CONTENT 

5316 JMP BADLK /BAD "L" TYPED* THROW THEM OUT 

1325 TAD CONT 

3774 DCA LINK 

5305 JMP PSTR 

4560 BADLK* JMS I CPUTPR /PRINT “BL“* GO TO START 
0212 212 ; 

0302 302i 

4314 4314 

5215 JMP START 

0000 ADR* 0 

0000 SADR* 0 
0000 CONT* 0 

0000 CHLINK* 0 /LINK-WANTED INDICATOR, MUST BE 4 IF ANYTHING 
0200 FSAM* 200 /FIRST SAM BLOCK* USED TO COUNT DISCS 
GET2=CLA STL RTL 
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0330 

0331 

0338 

0333 

0334 

0335 

0336 

0337 

0340 

0341 

0342 

0343 

0344 

0345 

0346 

0347 

0350 


0000 GETM* 0 /GET M NUMBER* "L"* OR KICK OUT ON CR 
1023 TAD CHAR /TREAT PREVIOUS ENDING CHAR AS NON-NUMERIC 
1357 MSPEC* TAD (-215 /CHECK* CR* STORE* L*ACCEPT AS NO. 
7450 SNA 

5271 JMP STORE /CR BEFORE NUMB* GO STORE 

1356 TAD <215-314 

7640 SZA CLA 

5346 JMP MNEW /UNRECOGNIZED* IGNORE 

3023 DCA CHAR /"L" COUNTS AS NO* MEANS USE LINK. CLEAR IT 

7001 IAC 

1326 MNORM* TAD CHLINK /BUT ONLY IF IN BIT 9 OF CHLINK 
7104 CLL RAL 

3326 DCA CHLINK /MOST RECENT BIT SET IS IN BIT 10 NOW 
5730 JMP I GETM 

4554 MNEW* JMS I CGETNUM 

5332 JMP MSPEC /NON-NUMERIC BEFORE NUMB 

5342 JMP MNORM /NUMBER* RETURN 


0356 7701 

0357 7563 

0360 7774 

0361 0414 

0362 1600 

0363 0177 

0364 0415 

0365 0003 

0366 1200 

0367 7772 

0370 7723 

0371 7540 

0372 0400 

0373 3200 

0374 1331 

0375 1315 

0376 7402 

0377 1327 
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0400 

4341 

*400 /CALCULATE BUFFER OF TEXT 

GCSUM, JMS OCTteD /PRINT THE LINK 

0401 

1377 

TAD (DBUF-1! 

0402 

3012 

DCA DPTR 

0403 

1376 

TAD (-200 /FIND THE CKSUM, WDS 0-177 

0404 

3264 

DCA WCMT 

0405 

7100 

CLL 

0406 

1412 

CSLUP, TAD I DPTR 

0407 

7430 

SZL 

0410 

7101 

CLL I AC /END AROUND CARRY 

0411 

2264 

ISZ WCMT 

0412 

5206 

JMP CSLUP 

0413 

4341 

JMS OCT WD /PRINT IT 

0414 

1020 

CAL, /MAKE PLOT TEXT AND PRINT TEXT BOTH! DELETE 

/ THE PRINT TEXT LATER IF THIS WASN'T A "P" ENTRY 

TAD PRIN /NORMAL ENTRY! SAVE BUFFER SIZE TO RESTORE LATER 

0415 

3363 

DCA OLDPR /"P" ENTRY! SET 0.. WON'T CLEAR LATER 

0416 

1376 

TAD (-200! 

0417 

3264 

DCA WCNT /NOW MAKE TEXT 

0420 

13 77 

TAD (DBUF-li 

0421 

3012 

DCA DPTR 

0422 

7040 

CM A! 

0423 

3265 

DCA LNCNT 

0424 

1375 

TAD (TXBUF-li 

0425 

3011 

DCA TXPTR 

0426 

2265 

LLUP, ISZ LtNCNT /DO A LINE NO FIRST’ 

0427 

5246 

JMP LMOK 

0430 

1 1 76 

TAD C-10! 

0431 

3265 

DCA LNCNT 

0432 

4560 

JMS I CPUTPR! 

0433 

0215 

215! 

0434 

4212 

4212 /PRINT CP. EEFORE LINE NO 

0435 

1012 

TAD DPTR 

0436 

7001 

IAC /PRINT+PLOT LINE NO! (DPTR+1) MOD 200 

0437 

03 74 

AND (177 

0440 

7106 

CLL RTL 

0441 

7004 

HAL 

0442 

4266 

JMS CLOCT! 

0443 

7776 

-2 /IN UPPER 2 DIG 

0444 

4560 

JMS I CPUTPR! 

044 5 

4240 

4240 /PRINT EXTRA BLK AFTER LINE NO 

0446 

1412 

LNOK, TAD I DPTR 

044 7 

4266 

JMS CLOCT! 

0450 

7774 

-4 /PRINT+PLOT DATA WD, 4 DIGITS 

0451 

2264 

ISZ WCMT 

04 52 

5226 

JMP LLUP 

0453 

1373 

TAD (1400! 

0454 

3143 

DCA STY 1 /ENABLE PLOTTING NOW THAT BUFF IS OK 

0455 

4560 

JMS I CPUTPR! 

0456 

0215 

215! 

0457 

4212 

4212 

0460 

1363 

TAD OLDPR 

0461 

7440 

SZA /IF PRIN NOT SAVED, THEY WANT PRINTING.. DONT RESET 

0462 

3020 

DCA PRIN /SAVED, NO PRINT, RESTORE PRIM 

0463 

5772 

JMP START 

0464 

0000 

WCMT, 0 

0465 

0000 

LNCNT, 0 
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0466 

0000 

CLOCT, 0 /PUT OCTAL WD IN BUFF AS 4 : 

DIGIT COMMANDS 

0467 

3336 

DCA CW /AND IN PRINT BUFF AS SINGLE 

CHARACTERS 

04 70 

3335 

DCA LZROS 


04 71 

1666 

TAD I CLOCT /FIELD WIDTH=3 OR 4 


04 72 

3337 

DCA CC 


0473 

2266 

ISZ CLOCT 


04 74 

1336 

CLLUP, TAD CW 


04 75 

7106 

cll rtl; 


04 76 

7004 

RAL 


0477 

3336 

DCA CW 


0500 

1336 

TAD CW 


0501 

7004 

RAL 


0502 

0371 

AND (7 


0503 

7450 

SNA 


0504 

5322 

JMP LZRO /IF 0, CHECK FOR LEADING 0 


0505 

2335 

ISZ LZROS 


0506 

3340 

CLZ, DCA DIG 


0507 

1340 

TAD DIG 


0510 

4560 

JMS i cputpr; 


051 1 

4260 

4260 /PRINT THE DIGIT 


0512 

1340 

TAD DIG 


0513 

1370 

TAD (JMP I PTRS /DIGITS TEXT IS JMP 

I PTRS+N 

0514 

3411 

DCTX, DCA I TXPTR /LEADING SPACES TEXT IS JMP DIGIT 

0515 

2337 

ISZ CC 


0516 

5274 

JMP CLLUP 


0517 

4560 

JMS I cputpr; 


0520 

4240 

4240 


0521 

5666 

JMP I CLOCT 


0522 

1335 

LZRO, TAD LZROS 


0523 

7640 

SZA CLA 


0524 

5306 

JMP CLZ /NOT LEADING 


0525 

1337 

TAD CC /IF LAST, PRINT ANYWAY 


0526 

7040 

CMA 


0527 

7650 

SNA CLA 


0530 

5306 

JMP CLZ 


0531 

4560 

JMS I CPUTPR! 


0532 

4240 

4240 


0533 

1367 

TAD (JMP DIGIT+1 /LEADING 


0534 

5314 

JMP DCTX 


0535 

0000 

LZROS, 0 


0536 

0000 

C W, 0 


0537 

0000 

CC, 0 


0540 

0000 

DIG, 0 
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0541 

0542 

0543 

0544 

0545 

0546 

0547 

0550 

0551 

0552 

0553 

0554 

0555 

0556 

0557 

0560 

0561 

0562 

0563 

0566 

0567 

0570 

0571 

0572 

0573 

0574 

0575 

0576 

0577 


0000 OCTwD, 0 /WD IN AC 

3336 DCA 0 WD 

1366 TAD C-4 

3337 DCA OCNT 

1336 OCTLUP* TAD OWD 

7106 CLL RTL 

7004 RAL 

3336 DCA OWD 

1336 TAD OWD 

7004 RAL 

0371 AND (7 

4560 JMS I CPUTPK; 

4260 4260 

2337 ISZ OCNT 

5345 JMP OCTLUP 

4560 JMS I CPUTPR; 

4240 4240 

5741 JMP I OCTWD 

0000 OLDPR* 0 /OLD VALUE OF PRIM* BEFORE CALCULATIONS 

OWD=CW; 0CNT=CC 

7774 
5135 
5426 
0007 
0215 
1400 
0177 
1 777 
7600 
1577 

*600 /TABLES* PLOT ROUTINES 
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0600 
060 1 
0602 
0603 
0604 
0605 
060 6 
060 7 
0610 
061 1 
0612 
0613 
0614 
0615 
0616 
0617 
0620 
0621 
0622 
0623 
0624 
0625 
0626 
0627 
0630 
0631 
0632 
0633 
0634 
0635 
0636 
0637 
0640 
0641 
0642 


0643 
0644 
0645 
0646 
064 7 
0650 
0651 
0652 
0653 
0654 
0655 
0656 
0657 
0660 
0661 
0662 
0663 
0664 
0665 
0666 
066 7 
0670 
06 71 
06 72 
06 73 


0002 

decimal; 

0031 

25 /LI 

0134 

92; 

0163 

115; 

0212 

138; 

0241 

161 /D 

0317 

207; 

034 6 

230; 

03 75 

253; 

0424 

27* 

0502 

322; 

053 1 

345; 

0560 

368; 

060 7 

391 

0665 

437; 

0714 

460; 

0743 

483; 

0772 

506 /I 

1064 

564; 

1 1 13 

587; 

1 142 

6io; 

1171 

633 

1247 

679; 

1276 

702; 

1325 

725; 

1354 

748 

1432 

794; 

1461 

817; 

1510 

840; 

1537 

863 

1615 

909; 

1644 

932; 

1673 

955; 

1722 

978; 

0000 

OCTAL 0 


/IMDIVID 

1003 

PLTO » TA 

6067 

ys; 

1177 

u; 

6067 

ys; 

1177 

u; 

6067 

ys; 

7200 

c 

1001 

tdx; 

1 1 73 

R2; 

60 5 7 

xs; 

3001 

DCX 

1004 

TAD Y3; 

6067 

ys; 

1 1 76 

d; 

6067 

ys; 

1 1 76 

d; 

6063 

yl; 

7200 

c 

100 1 

tdx; 

1 1 74 

l; 

60 5 7 

xs; 

7200 

c 

1006 

tad ys; 

^06 7 

YS 

5134 

OMH DIC 


XTBLj 
>T OF 


X COORDINATES 


WD 0 


■5 SPACES BEFORE DATA WD 4 


/END 
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0674 

1002 

0675 

6067 

06 76 

1 1 72 

0677 

6067 

0700 

7200 

0701 

100 1 

0702 

1 1 75 

0703 

6057 

0704 

3001 

0705 

1006 

0706 

6067 

0707 

1170 

0710 

6067 

071 1 

1 1 76 

0712 

6067 

0713 

1176 

0714 

6067 

0715 

7200 

0716 

1001 

0717 

1175 

0720 

6057 

0721 

5134 

0722 

1002 

0723 

6067 

0724 

1172 

0725 

6067 

0726 

7200 

0727 

1001 

0730 

1173 

0731 

6057 

0732 

3001 

0733 

1004 

0734 

6067 

0735 

1170 

0736 

6067 

0737 

7200 

0740 

1001 

0741 

1 1 74 

0742 

6057 

0743 

7200 

0744 

1003 

0745 

6067 

0746 

1 1 72 

0747 

6067 

0750 

5134 


PLT1 r TAD Y1 

ys; 

U3; 

y s; 
c 

TDK; 

r; 

xs; 

DCX 

TAD Y5J 

ys; 

D2; 

ys; 

d; 

ys; 

d; 

ys; 

c 

tdx; 

r; 

xs 

JMP DIGIT 
PLT2, TAD Y1 

ys; 

U3; 

ys; 

c 

tdx; 

R2; 

xs; 

dcx 

TAD Y3; 

ys; 

D2; 

ys; 

c 

tdx; 

l; 

xs; 

c 

TAD Y2; 

ys; 

U3; 

YS 

JMP DIGIT 
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0751 

1002 

0752 

6067 

0753 

1 171 

0754 

6067 

0755 

1171 

0756 

6067 

0757 

7200 

0760 

1001 

0761 

1175 

0762 

6057 

0763 

1175 

0764 

6057 

0765 

3001 

0766 

1005 

0767 

6067 

0770 

1170 

0771 

6067 

0772 

1176 

0773 

6067 

0774 

7200 

0775 

1001 

0776 

1174 

0777 

6057 

1000 

7200 

1001 

1004 

1002 

6067 

1003 

5134 

1004 

1006 

1005 

6067 

1006 

1176 

1007 

6067 

1010 

1 1 76 

1011 

6067 

1012 

7200 

1013 

1001 

1014 

1175 

1015 

6057 

1016 

1175 

1017 

6057 

1020 

7200 

1021 

1002 

1022 

6067 

1023 

1177 

1024 

6067 

1025 

1 171 

1026 

6067 

1027 

1177 

1030 

6067 

1031 

5134 


PLT3, TAD Y1 

ys; 

U2i 
YSi 
U2 ; 

YSi 

c 

tdx; 

r; 

xs; 

r; 

xsj 

DCX 

TAD Y4i 

YSi 

D2i 

YSi 

Di 

YSi 

C 

TDXi 

Li 

XSi 

PAGEi C 
TAD Y3i 
YS 

JMP DIGIT 

PLT4, TAD Y5 
YSi 
Di 
YSi 
Di 
YSi 
C 

TDXi 

Ri 

XSi 

Ri 

XSi 

c 

TAD Yii 

YSi 

Ui 

YSi 

U2i 

YSi 

Ui 

YS 

JMP DIGIT 




1032 

1002 

1033 

6067 

1034 

1171 

1035 

6067 

1036 

1 1 77 

1037 

6067 

1040 

1177 

1041 

6067 

1042 

7200 

1043 

1001 

1044 

1175 

1045 

6057 

1046 

1175 

1047 

6057 

1050 

3001 

1051 

1003 

1052 

6067 

1053 

1177 

1054 

6063 

1055 

7200 

1056 

1001 

1057 

1 174 

1060 

6057 

1061 

7200 

1062 

1002 

1063 

6067 

1064 

5134 

1065 

1002 

1066 

6067 

1067 

1 1 77 

1070 

6067 

1071 

1172 

1072 

6067 

1073 

1 1 76 

1074 

6067 

1075 

1176 

1076 

6067 

1077 

7200 

1100 

1001 

1101 

1175 

1102 

6057 

1103 

1175 

1104 

6057 

1105 

3001 

1106 

1003 

1107 

6067 

1110 

1 1 76 

mi 

6067 

1112 

7200 

1113 

1001 

1114 

1174 

1115 

6057 

1116 

5134 


PLT5, TAD 
YS i 
U2 ; 

YS; 

u; 

ys; 

u; 

ys; 

c 

tdx; 

r; 

xs; 

r; 

xs; 

DCX 

TAD Y2; 

ys; 

u; 

yl; 

c 

tdx; 

l; 

xs; 

c 

tad yi; 
ys 

JMP DIGIT 
PLT6* TAD 

ys; 

u; 

ys; 

U3; 

ys; 

d; 

ys; 

d; 

ys; 

c 

tdx; 

r; 

xs; 

r; 

xs; 

DCX 

tad Y2; 

ys; 

d; 

ys; 

c 

tdx; 

l; 

xs 

jmp digit 


yi; 


yi; 





1117 

1002 

PLT7# TAD Y15 

1120 

6067 

ys; 

1121 

1167 

U4; 

1122 

6067 

ys; 

1 123 

7200 

c 

11241 

1001 

tdx; 

1125 

1175 

r; 

1126 

6057 

xs; 

1127 

1175 

r; 

1130 

6057 

xsi 

1131 

3001 

DCX 

1132 

1005 

TAD Y45 

1133 

6067 

ys; 

1134 

1176 

d; 

1135 

6063 

yl; 

1136 

7200 

c 

1137 

1001 

TDX 5 

1140 

1174 

Li 

1141 

6057 

XS5 

1142 

7200 

C 

1143 

1003 

TAD Y2i 

1144 

6067 

YS 

1145 

5134 

JMP DIGIT 

1146 

0000 

GETNUM# 0 /JMS GETNUM 

1147 

4036 

JMS GETCHR /RT IF A NON-NUM BEFORE THE NUMBER; CHAR 

1150 

0377 

AND (370 /RT IF NUMERIC# NUMB IN ACUM 

1151 

1376 

TAD (-260 

1152 

7650 

SNA CLA 

1153 

5356 

JMP NUMRC /NUMERIC# START ACCUMULATING 

1154 

1023 

TAD CHAR /NOT NUM# RETURN FOR INSPECTION OF CHAR 

1155 

5746 

JMP I GETNUM 

1156 

2346 

NUMRC# ISZ GETNUM 

1157 

3024 

DCA ACUM 

1160 

1024 

GETNL# TAD ACUM 

1161 

7104 

CLL RALi 

1162 

7104 

CLL RALi 

1163 

7104 

CLL RAL 

1164 

1023 

TAD CHAR 

1165 

1376 

TAD (-260 

1166 

3024 

DCA ACUM 

1167 

4036 

JMS GETCHR /REPLACE CHAR 

1170 

0377 

AND (370 

1171 

1376 

TAD (-260 

1172 

7650 

SNA CLA 

1173 

5360 

JMP GETNL /NEXT IS NUMERIC# GO ROUND AGAIN 

1174 
11 76 

5746 

7520 

JMP I GETNUM /NEXT IS NON-NUM# TERMINATE THE SCAN 

1177 

0370 
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1200 

1327 

*1200 /SEARCH FOR STRING OF WDS* SEPARATED BY BLKS 
SERCH* TAD BLOC; 


1201 

3314 

DCA MATCH /IF NO MATCHES FOUND* RETURN TO THIS 


1202 

1377 

TAD (SBUF-l 


1203 

3013 

DCA SP1 


1204 

3312 

DCA IMCT 


1205 

4554 

INNLUP* JMS I CGETNUM 


1206 

5215 

JMP LBL /LEADING NON-NUMERICS 


1207 

1024 

TAD ACUM /HAVE NUMBER* STORE IN STRING 


1210 

3413 

DCA I SP1 


1211 

7040 

CMA 


1212 

1312 

TAD INCT 


1213 

3312 

DCA INCT 


1214 

1023 

TAD CHAR /IF ENDED BY CR* GO DO SEARCH 


1215 

1376 

LBL* TAD <-215 


1216 

7640 

SZA CLA 

i 

1217 

5205 

JMP INNLUP /NOT CR* IGNORE 


1220 

4560 

JMS I CPUTPR /CR* DO THE SEARCH 


1221 

4212 

4212 


1222 

7001 

I AC 


1223 

3327 

SRCD* DCA BLOC 


1224 

1025 

TAD MAXBLK 


1225 

7130 

STL RAR /SEARCH HALF THE BLKS ON DISC AT A TIME* 


1226 

3311 

DCA BLCNT /ODDS* THEN EVENS; FASTER THAN SEQUENTIAL 

SEARCH 

1227 

4315 

GETAB* JMS GETB 


1230 

1375 

TAD CDBUF-l; 


1231 

3012 

DCA DPTR 


1232 

1374 

TAD (-200; 


1233 

3313 

DCA SCT /SEARCH THIS BLOCK FOR THE STRING 


1234 

1412 

SRCP* TAD I DPTR /LOOK FOR MATCH ON FST WORD 


1235 

7041 

CIA 


1236 

1773 

TAD SBUF 


1237 

7650 

SNA CLA 


1240 

5260 

JMP FMTC /MATCH ON FIRST* CHECK OTHERS 

i 

1241 

2313 

NOTL* ISZ SCT /NO MATCH ON FIRST* CONTINUE 


1242 

5234 

JMP SRCP 


1243 

7326 

GET2 /FINISH THIS BLOCK* GO TO NEXT 


1244 

1327 

TAD BLOC 


1245 

3327 

DCA BLOC 


1246 

2311 

ISZ BLCNT 


1247 

522 7 

JMP GETAB 


1250 

1327 

TAD BLOC /RAN OUT OF BLOCKS•• IF ODD* GO DO EVENS 


1251 

7010 

RAR 


1252 

7630 

SZL CLA 


1253 

5223 

JMP SRCD 


1254 

1314 

TAD MATCH /EVEN* END THE SEARCH 


1255 

3327 

DCA BLOC /DISPLAY THE LAST MATCHED BLOCK 


1256 

4315 

JMS GETB 


1257 

5772 

JMP CAL 
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# ‘ 


1260 

1373 

FMTC# TAD <SBUF /MATCH ON FIRST# RUN THRU STRING 

1261 

3013 

DCA SP1 


1262 

1012 

TAD DPTRi 


1263 

3014 

DCA SP2 


1264 

1312 

TAD INCT 


1265 

3326 

DCA INCTT 


1266 

2326 

CKL# ISZ INCTT 


1267 

5303 

JMP CKMOR /NOT END OF STRING# KEEP CHECKING 

UNTIL MISMATCH 

1270 

1327 

TAD BLOC /END STRING# ALL MATCH.. PRINT BLK 

♦ ADR 

1271 

4553 

JMS I COCTWD 


1272 

1012 

TAD DPTR 


1273 

0371 

AND (177 /7 BIT ADDRESS 


1274 

4553 

JMS I COCTWD 


1275 

4560 

JMS I CPUTPR 


1276 

0215 

L215# 215; 


1277 

4212 

4212 


1300 

1327 

TAD bloc; 


1301 

3314 

DCA MATCH /KEEP NO OF LAST BL THAT MATCHED 


1302 

5241 

JMP NOTL /CONTINUE SEARCH 


1303 

1413 

CKMOR# TAD I SP1 


1304 

7041 

CIA 


1305 

1414 

TAD I SP2 


1306 

7640 

SZA CLA 


1307 

5241 

JMP NOTL /BAD# STOP CHECKING THIS STRING 


1310 

5266 

JMP CKL /MATCH# TRY FOR MORE 


1311 

0000 

BLCNT# 0 


1312 

0000 

INCT# 0 /N WORDS ENTERED 


1313 

0000 

SCT# 0 


1314 

0000 

MATCH# 0 



1315 

0000 

GETB# 0 / AC=0# READ.. AC=2#ST0RE BLOC 

ON 

DISC 

1316 

1370 

TAD <3 



1317 

3326 

DCA PRAM 



1320 

7100 

CLL 



1321 

1327 

TAD BLOC /SEE IF THE BLOC NO IS OUT OF 

' RANGE 

1322 

1025 

TAD MAXBLK 



1323 

7630 

SZL CLA 



1324 

5334 

JMP OB /OUT OF BOUNDS# PRINT “OB-, GO 

TO 

START 

1325 

4767 

JMS 7642 



1326 

0000 

PRAM# 0 



1327 

0000 

BLOC# 0 



1330 

1600 

DBUF 



1331 

0000 

LINK# 0 



1332 

7402 

HLT 



1333 

5715 

JMP I GETB 



1334 

4340 

OB# JMS PUTPR 



1335 

0317 

317; 



1336 

4302 

4302 



1337 

5766 

JMP START 




INCTT=PRAM 
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1340 

0000 

PUT PR* 0 /PUTS OUTPUT IN PRINT BUFF. JMS PUTPRJ STRING. 

1341 

1 740 

TAD 

I PUTPH /ADDS AC* IF ANY* TO FIRST CHAR 

1342 

2340 

ISZ 

PUTPR /AND RETURNS AFTER A - CHARACTER ENDS STRING 

1343 

3420 

DCA 

I PR IN 

1344 

1022 

TAD 

PRINTF 

1345 

7640 

SZA 

CLA 

1346 

5357 

JMP 

PRNOW /PRINTER WAITING* PRINT IT RIGHT AWAY 

1347 

7100 

CLL 

/BUSY* LEAVE IT IN BUFFER 

1350 

1020 

TAD 

PRIN 

1351 

1276 

TAD 

L215 /-7563 

1352 

7630 

SZL 

CLA 

1353 

5774 

JMP 

7600 /BUFFER IS FULL* KILL PROGRAM 

1354 

1420 

TAD 

I PRIN 

1355 

2020 

ISZ 

PRIN 

1356 

5362 

JMP 

PUTNX /GET ANOTHER* UNLESS THIS IS - 

1357 

3022 

PRNOW* DCA PRINTF /PUT FLAG DOWN 

1360 

1420 

TAD 

I PRIN 

1361 

6046 

TLS 


1362 

7700 

PUTNX* SMA CLA 

1363 

5341 

JMP 

PUTPR+1 /+* DO ANOTHER 

1364 

5740 

JMP 

I PUTPR /-* RETURN 

1366 

0215 



1367 

7642 



1370 

0003 



1371 

0177 



1372 

0414 



1373 

1400 



1374 

7600 



1375 

1577 



1376 

7563 



1377 

1377 
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